home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 November / 64er_Magazin_91-11_1991_Markt__Technik_de_Side_B.d64 / trainer last nin (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  591b  |  18 lines
  1. 100 clr:dimts$(5):dimb1(5):dimb2(5):dimf(5):tr=-1:rem -1:on, 0:off
  2. 110 ts$(1)="17 02":b1(1)=194:b2(1)=15:f(1)=1
  3. 120 ts$(2)="17 17":b1(2)=247:b2(2)=12:f(2)=2
  4. 130 ts$(3)="07 05":b1(3)=96:b2(3)=14:f(3)=2
  5. 140 ts$(4)="17 17":b1(4)=139:b2(4)=15:f(4)=3
  6. 150 ts$(5)="07 05":b1(5)=232:b2(5)=12:f(5)=3
  7. 160 fori=1to5
  8. 170 iff<>f(i)thengosub250
  9. 180 open2,8,15:open1,8,2,"#"
  10. 190 print#2,"u1 2 0 "ts$(i)
  11. 200 print#2,"b-p 2 187"
  12. 210 iftrthenprint#1,chr$(249)chr$(76)chr$(138)chr$(b1(i))chr$(b2(i));
  13. 220 ifnottrthenprint#1,chr$(186)chr$(3)chr$(237)chr$(10)chr$(148);
  14. 230 print#2,"u2 2 0 "ts$(i)
  15. 240 f=f(i):close2:close1:next:end
  16. 250 print"insert disk - side"f(i)chr$(13)"press any key !"
  17. 260 poke198,0:wait198,1:poke198,0:return
  18.